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PROGRA>. 
Double precision signed divide 

TAPES 
ASCII source: 090-000016 

This routine divides a quadruple 

precision, two's complement 
dividend by a double precision, 
two's complement divisor. The 
results are a double precision 
quotient and remainder, both in 
two's complement notation. 
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1* ftECUIREMENTS 

1. 1 Memory 

IK or larger alterable memory 

NOVA central processor 
1 • 3 External S ubr outines 

None 
1.4 Other 

None 
2. OPERATING PROCEDURE 

2.1 Sailing Sequence 
JSR .DDIV 

return 

2 . 2 Ino ut Format 

The double precision divisor must be in hC0 , 
AC1 (high order, low order) . The quadruple 
precision dividend should be stored in four 
consecutive memory words, highest order to 
lowest order. AC 2 must contain the address 
of highest order word of the dividend. 

2.3 Output Format 

The double precision quotient is returned 
in AC0 t AC1 (high order, low order) . Its 

sign,' is determined by the algebraic rules 
for signed division. The double precision 
remainder is stored in two consecutive 
memory words, the higher order word first. 
AC2 will contain the address of the higher 
order remainder word. The remainder is signed 
as the dividend. 

2.4 Error Returns 

If the magnitude of the quotient would exceed 
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2**31-1, an error condition exists. Carry 

is set, and return is made with unpredictable 

results. For legal divisions, Carry will be 

zero on return, 

2 . 5 -Sta; :e ol: ;/; tivc Registe rs upon Exi t 

All the accumulators and Carry are destroyed 
by .DDIV. 

2.6 Cautions to User 



None 
3. DISCUSSION 



3. 1 Algorithms 

The routine remembers the signs of the dividend 
and divisor for computing the signs of the results, 
Using the absolute values of the operands, the 
routine performs 32 iterations. Each iteration 
determines whether the divisor is contained in 
the dividend, sets a quotient bit accordingly, 
and computes a new dividend. After 32 iterations, 
the new dividend is the remainder, and the double 
precision quotient has been computed. 

3.2 Limitations and Accuracy 

The routine is exact for quotients of magnitude 
less than 2**31. 

3. 3 Size and Timing 

Double precision divide and double precision 

multiply are supplied as one routine. The 
size for both routines is 213 (octal) words. 
The average execution time for a signed double 
divide is 2.98 milliseconds. 

3.4 References 

Signed double multiply is provided with the 
source of .DDIV and described in 093-000010. 
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3.5 Flow Diagrams 
None 

An *scil source of .DDIV (090-000016) is provided with 
the NOVA software. The user can edit this tar- into 
his source for any problem requiring double precision 
division. 

5 - PROGRAM LI ST IMG 

A listing of .DDIV follows. No origin has been given 
in order to enable the user to edit this tape anywhere 
within his routines. 



1 IN00IA 
I 



i I 



. L i f4 i 



I 0E0T0OYE0; 
I KfcyJlKES: 



ALL A0S A NO CAKKY 



• FiAYO 



00000 0340 7 6 . AMAYs 
•;/0-;i l3<!^^ 

00000 04007? 
00004 044 1 00 
0000b 034IJ76 
000^6 010076 
00007 035400 
00010 021400 

0001 1 id 25 Aid I 
00012 004045 
000 13 l -.« i f i// 
000 '< '- I r00 -.; 

000 lb 000 i 10 

0001 6 040 1 I 
000 17 044100 
0002.0 030100 

00021 006113 

00022 04410 

00023 004101 
'00024 006114 

00000 0J007? 
0000 6 0400 7? 
0000? 101000 

00030 J^-'lAJ 

00031 :'- _ ' 4 

00030 044 100 
00000 004 101 
00034 0061 14 

00000 00007? 
000 o 10 700,; 

0000? 101420 

00000 000100 

000^1 004100 

00000 014110 

00040 00000 6 

00-H-, Ovv-l-L6 



000 0*0 
000 • H 
EfA 0#.0010 

Si a i » *aci 0- 

100 • 
L0A 3*0*3 

L0A 1 * i » 

000 .0U00 
:W:v„ ., 



i'A 0# • 00 
I0A I 9 ♦ u 



+ 
+ 



000 0#ci0 00 

S i A I ##0010*1 

LUA l*#0Cl0-*0 

05 K i.v.00t 

L0A 0, • 0010 
i A j * 00 1 



LUA \» .00 I + 

...-:> ri ■ * » r.w .:• 1 

S I A l*»0010+0 

L-i -4 ».--<.„: J + ;^ 

L0A # • BC 1 
*■■ ■• > -*: * 1 * :y : J 



rj t # • 00 



0MA 



»D3 o 

>B04 



i %3 nc, 1/ 



MULTIPLY) 



J A V£ A £ f ?0 N 

I CLEAK rlESOLf 

J F" M A 6 S ' f 

I SAVE A8S C01 ) 

I W00f0KE A00 

I 00 MP PA^ 



ii i 



SI A000ESS CONS TAN T 
0E f A00000S 0f 02 
00 f 01 

FCJKM ABSOLUTE VALUE OF 02 



fi)H 
FLOS 


KESALf 


SAVE A 


00(02) 



anus* 



F0r< 



A ■: ■ • > • ■ )c< „ .; ' . .. 

UNSIGNED Fi0 1_, >L0 

SfO0E LOWEST 000EH OF KESULf 

A ■ ' >- v «^ r 00 LW lo"- t : 

A00 HIGH OA0EE TO F10ST CKOSS 

0«00L0 r 

j' C- : 0H) 

>-- ••- : ;. c- o.h00,0 qf isr caoss 

LOW OrcOE.N ru BE A0OE0 TO 

0EC0N0 00005 

j--: L„:;0) ♦ ; j : (h0 : r) 

000 0N0 0000 PK0O0I0T 

0100 LOWEST QiiOEH OF KESULf 



GH> * 00CHU0H) 



A00 HJ0H OKOEA OF CK0SS TO 
-- -' •-• ■" J t*. E •-; f*.'„ L f i 1 v 
A.*:.- 0K.H J;i:i£tx Qf 1ST CrtOSS 



GET LO to OKOEK AEijLTS 
A~->i 10:0 OF AESuLT 



•c. fat 



vt. 



— \ 



JEbftTE AESULT 
00.M'i-v'E - STOAE AESULT 5 



A 6 1 A 
0004 7 lhl4 



I 00I7K0 Ar *rfeJ!3& WAAAicIO AO0, Ad 1 AND JAAA^AAENfO A0A 
I tAfitY A 7 »«o:>i AtOAftA AO0, A01 

• rftfbtf: mo\/L* 0#0,5A0 



00050 1044^4 • B. 

0§0l3»2 100408 
00050 001400 



I 0A0KY Ai* .rftJ02 0AKA3 AriAOOOiAI \/AL00 OF NUMBfclK 
* 10 AC0* Au'l, AO0> AC 3 

1 tMfHY Al »BBW PiMAA» A0AAK0PL0 00 0AJV 

1 00Atif Af .bbb4 5fA005 THt A05 IN A BLOCK 0fAitri00 
i A j • au i o 

i if .ump/ oaoaao frit; rtu-jficMt:, cakk*- will 00 ^ko 

I JP * OU I M OA0L00 100 AOOfAN0, 0AAKY WILL At NUN~rfEKO 



it A cA 3 # S A 



j» & * ^ nit 






0005^4 10U1J .BBt>8; MUVL# 0#0#00i 

000^0 000066 -j;'- r -:A_-- 

000b6 1 "14404 • iASA0; 

000^7 l;>O00i 

000 60 It»fcl4 04 

000 6! 10400 1 

0W0 62 1244 64 

00063 100001 

000 64 10046b 0t00 0A/A0iA 

000 60 101060 MUVC 0#0 

00066 040077 •BA04S 5i'A Oj*iJ0i0 

000 6 7 044 100 51'A i*,bCI0- 

000 70 0;>A10i Afft id*, nay- 

00071 034100 ;; a A---0.' •- 

000 I'd 1 1 «0H m»j v *A^ y , *ij 

000 70 000 106 JMA . AO90 

000 74 0AA lib * AtJt> 5 S Alia A # • 0030 

000 70 0020 7 J«p ©.BOW* 



I rtfc t' 0h'N f u -J I v 2 :-•! k 00 f i N£ 

I PiJiNftit TO 0001 1 PLY At00Lf0 

I OK 1 V 1 K£ 0A 1 00 H 

J 0EF0KN 



tit 



50076 00s 





102 »riLK 4 



00 112 04 1 • BC 20! 41 

^%; 's 4 .-;•/; a? 5 <• ■. Z2 ' - • MPYft 
wfciuj to £J 10 » * i » oL>ac « • Ov i w 



JNSI6M1 



i IN i C. ! 



u I VliJs. 



INfJEK 



W0K0 



■ ■. ". >E 



=»LY ANl, /.-•. 
SULfS 



ft t 



'- 



sitegek* 

tEEK WOKD^ " ' AC 2 
•:LE -"nE^i- 7 '. • TWO'S 



-,-_ j/V0#vi 

I* SIGNED QUOTIENT IN AC0* AC 1 



DOUBLE PKEEISJOf 

<HIGH* LOW) 

•jOEeE*.. P* .0 * ., : ON S 1 GNED < SAME AS D I V I if-M- ) 

HEMAli00E« POINTED TO BY A IE < r A-. L'),-> 

CALLING SEQUENCES 

USE • EOIE 
KEETUmE 



E ft K -.'.-< CATEi TI^E..: 



IF A8SCU0*O1> >= ABiJW0*Vl>* 

OAntEY WILL 8E 

SET AND RESULTS UNPREDICTABLE 

IF THE QUOTIENT HAL AN ABSOLUTE 
VALUE >= 0**3 I* 
UAKKY WILL BE SET AND 
•-EE EA~i ;JE.L-Lj J .■- f.\- LE 



OESi>iOYE0: ALL ACS AND CAKKY 



30? 16 •-■?; -»->7b "Jl)1'^; ETA 3#«B^ 

.■'0li7 0E00 7 7 ETA 2*.B 

00120 L^E'0 SUBEK 2» : 

E 1 1 004045 J E K * B d S 



00122 040 100 »BOE9f ST A E^ . I 

5 H E «} 4 4 EJj i5 1 A 1 * • BG I t 

I E 4 15 E I 2 E M V EL E * E 

801 25 03007 7 



00; >:•■•• EEi 0)0 

0w; cE/ 101 ! IE 

0E : oO ! 7 > 'UO 

t .1 1 054110 

00132 025001 

00133 0350E3 

00134 0310 0E 



LEA E# *d0 

L.U M It? j fc3 .s> <i 
100 OLE 0*0. 
I N E E # «J 
ETA 3#.EE 
EDA 1*1*2 
El 1 A • « .» E a J 
LEA 2j»2jE7 



1 SAOE KEETONE0 

I SAVE AGE TEMPOKAKILY 

1 ELEAH F0K h'ESULT SIGN FLAGS 

I FEHM ABSOLUTE VALUE OF 

J OIEISOA 

J SAVE AdSCV) 



EEK EIEE :*; fET 



I POSITION OJ0 

I 1E# LET GAHJ 

I KEEfUEE ACE 

1 LET .-ITU AT'' 



I SIGN FLA OS ALE SET 



I FOKM ABSOLUTE VALUE OF 

I DIVIDEND (NOTE CAKKY SET) 



40 



tow 
00 
00 
00 



43 
44 
45 





MM 



41b0 



i~ ; ■ « 
: ^rN.. ; 
000145 
1A2000 

! "o432 
00207 6 
03*n 5 
00*O ! 1 

101020 
0iil 66 



L0 A 2**BCM 


1 


00 ,-i .::■ •-. r •- 0.-V--J* I 


"EST 


LOA 3j«.BCi 1 +1 








-. .::-- \**±^.«. 


1 


-_'-. «. ; * - - * . j->. * . - 




■■..'■ . -« 








A.C-5* 0^0,500 








-J- •- /. y 3 f t » S Z C 








Jtf.-' -^oJJc 


1 


EHHQR* CARRY 10 SET 




LOA 3# »BC2i 


1 


* '2 y 




ii ' C- a » — • J I 4 


I 


STORE LOOP COUNT 




M-.- *-■ 1 - > 


1 


•«-**_ A R C AHR Y 




JMP »BC90 









0.0^ 100423 .003?; SUdrl 0*!*SNC 



1 81 --: A '. i S -J •. FROM H I OH 
I • ; . DEN0 



0K-0 


1-000! 


ADC 2 2#0*SKP 


00153 


140 400 


50B2 2#0 


00154 


000100 


JMP .8090 


kr0tb>0 


125100 .B0S8I 


MOVL I#l 


00156 


101 100 


M0VL 0#0 


00157 


000100 


LOA 2#.BC1 1 


00100 


034104 


L0A 0#«801 1-M 


03161 


I424I3 


00 B# 0#0#0s00 


00102 


000100 


JMP »BC90 


001 63 


142415 


S0B# 2#0j.3IMK 


00164 


I 60412 


00B# 0*1*520 


00105 


0001 51 


JMP .8089 


00100 


004102 .B090! 


LOA 0#*B010+0 


001 67 


030101 


L0A 2*.BC10+2 


00170 


17.^100 


MOVL 3*3 


00- ?! 


151100 


MOVL 2 ,2 


00172 


05010! 


STA 2# .0010+2 


001 70 


054 S 02 


SFA 0*. 80 10+0 


00174 


014 111 


002 .0014 


00175 


000155 


JMP . fC0 


00176 


0001 10 


LOA 2#.BC13 


001 77 


151202 


M00K d?dsotiu 


00200 


004047 


JSH •8600 


00001 


04007 7 


SfA 0#»0010 


00202 


0A*T. 00 


STA 1#«B0 104-1 


00203 


020101 


LOA 0#» BC10+2 


00204 


i/i4S 00 


LOA 1# .0010+0 


00205 


1 15100 


MOVL y t 3 »i 20 


00200 


0020 70 


uX- J.S000 


00207 


1 5 1 202 


00Vr; .<* j-f/, ^020 


00210 


004050 


JSK «BB51 


0?.! ; 


} 00 020 


MO ¥2 .0j0 


00212 


000 3 7*» 


JMP »BB55 



I GET D1V150K 

1 wILL 01 VI 000 60 INFO 

J DIVIDEND 

1 NO 



I 000 



S 001 T I V * 3 i S>) ANO 00 OT 1 E NT 



I NOT DONE YET 

I G0F FLA0S 

1 NEGATE REMAINDER* INC AC2 

1 ANO ST00E If 

I 00 F QUOTIENT 

I TEST FO0 >2**0i 

3 YES* CA0KY SET FO0 ERROR 

1 NEGATE QUOTIENT 

1 CLEAR CARKY 

I 0E T 0KN 



